﻿Public Class mainform

    Private Sub exitgame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitgame.Click
        'simply to exit the game
        Application.Exit()
    End Sub

    Private Sub music_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles music.Click
        Music1.Show()
    End Sub

    Private Sub newgame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newgame.Click
        'begin the story 
        Town1.Show()
        Town1.Timer1.Enabled = True
    End Sub

    Public Sub mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, Music1.VisibleChanged, Town1.VisibleChanged
        'play the music ~!
        If File.Exists("music/bgm02b.wav") Then
            My.Computer.Audio.Play("music/bgm02b.wav", AudioPlayMode.BackgroundLoop)
        End If
        Town1.Timer1.Enabled = False

    End Sub
End Class
